home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
shrlk201.zip
/
_SETUP.1
/
Unlock.pas
< prev
Wrap
Pascal/Delphi Source File
|
1997-07-22
|
748b
|
41 lines
unit Unlock;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TfrmUnlocker = class(TForm)
lblName: TLabel;
lblUnlockCode: TLabel;
txtUnlockCode: TEdit;
txtName: TEdit;
btnOk: TButton;
Label1: TLabel;
txtCompanyName: TEdit;
procedure btnOkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmUnlocker: TfrmUnlocker;
implementation
{$R *.DFM}
procedure TfrmUnlocker.btnOkClick(Sender: TObject);
begin
if txtName.Text = '' then
begin
MessageDlg('Please enter a name', mtError, [mbOk], 0);
ModalResult := mrNone;
end;
end;
end.